Κλειστό. Αυτή η ερώτηση δεν πληροί τις οδηγίες Stack Overflow. Αυτήν τη στιγμή δεν δέχεται απαντήσεις. Θέλετε να βελτιώσετε αυτήν την ερώτηση; Ενημερώστε την ερώτηση, ώστε να είναι στο θέμα για Stack Overflow. Κλειστό πριν από 4 χρόνια. Βελτιώστε αυτήν την ερώτηση Δημιουργώ μια εφαρμογή Shiny η οποία επεξεργάζεται πολλά αρχεία κειμένου που επιλέγονται από έναν χρήστη. Η έξοδος είναι ένα τεράστιο πλαίσιο δεδομένων με εκατομμύρια σειρές και δεκάδες στήλες. Ενδιαφέρομαι τώρα να επιτρέψω σε έναν χρήστη να φιλτράρει αλληλεπιδραστικά σειρές, να επιλέγει στήλες και να συνοψίζει στήλες (επιλέγοντας από μια λίστα συναρτήσεων όπως μέσος όρος, sd, max, min, άθροισμα, κλπ ...). Το αποτέλεσμα θα ήταν ένα μικρότερο πλαίσιο δεδομένων που θα συνοψίζει τα δεδομένα ανά επιλογή χρήστη - βασικά πρέπει να δημιουργήσω ένα GUI που εφαρμόζει μια βασική λειτουργικότητα της βιβλιοθήκης dplyr. Σε γενικές γραμμές, ξέρω πώς να το κάνω δημιουργώντας χειροκίνητα μια δέσμη στοιχείων GUI και τροφοδοτώντας τα σε μια λειτουργία διακομιστή με μια σειρά εντολών dplyr. Δεδομένου ότι αυτό φαίνεται να είναι μια αρκετά τυπική λειτουργικότητα (GUI που φιλτράρει και συνοψίζει ένα πλαίσιο δεδομένων), προτού αρχίσω να το δημιουργώ από το μηδέν, αναρωτιέμαι αν υπάρχει κάτι "από το ράφι" Μπορώ να χρησιμοποιήσω ΩΣ ΕΙΝΑΙ ή ως σημείο εκκίνησης .
2021-02-22 08:13:56
Ξέρω ότι είπατε ότι το rpivotTable δεν ήταν ακριβώς αυτό που ψάχνετε, αλλά νομίζω ότι μπορεί να διαμορφωθεί για να κάνει μερικά από τα βαριά ανύψωσης,
Ακολουθεί ένα παράδειγμα (χρησιμοποιώντας rpivotTable για τον χειρισμό, DT για εμφάνιση του data.frame, rvest για ανάλυση του εσωτερικού HTML από το DOM, μπορεί να υπάρχει καλύτερη μορφή δεδομένων για να περάσει το αντικείμενο του πίνακα από την πλευρά του πελάτη, αλλά αυτό είναι απόδειξη της έννοιας ):
ui.R
βιβλιοθήκη (γυαλιστερή)
βιβλιοθήκη (DT)
βιβλιοθήκη (rpivotTable)
FullPage <- fluidPage (
DT :: dataTableOutput ('aSummaryTable'),
rpivotTableOutput ('ΑΠΟΤΕΛΕΣΜΑΤΑ')
)
Πλήρης σελίδα
διακομιστής.R:
βιβλιοθήκη (γυαλιστερή)
βιβλιοθήκη (rpivotTable)
βιβλιοθήκη (DT)
βιβλιοθήκη (rvest)
συνάρτηση (είσοδος, έξοδος, συνεδρία) {
# Δημιουργήστε δείγματα δεδομένων
qbdata <- αντιδραστικό ({
expand.grid (ΕΠΙΣΤΟΛΕΣ, 1: 3)
})
# Καθαρίστε το html και αποθηκεύστε το ως αντιδραστικό
Summarydf <- eventReactive (εισαγάγετε $ myData, {
εισαγωγή $ myData%>%
read_html%>%
html_table (fill = TRUE)%>%
# Αποδεικνύεται ότι υπάρχουν δύο πίνακες σε έναν πίνακα rpivot, θέλουμε το δεύτερο
[[2]]
})
# εμφάνιση df ως DT :: datatable
έξοδος $ aSummaryTable <- DT :: renderDataTable ({
datatable (περίληψηdf (), rownames = FALSE)
})
# Όποτε ανανεώνεται η διαμόρφωση, καλέστε ξανά με το περιεχόμενο του πίνακα
έξοδο $ RESULTS <- renderRpivotTable ({
rpivotTable (
qbdata (),
onRefresh =
htmlwidgets :: JS ("function (config) {
Shiny.onInputChange ('myData', document.getElementById ('RESULTS'). InnerHTML);
} ")
)
})
}
|
Δεν είναι η απάντηση που ψάχνετε; Περιηγηθείτε σε άλλες ερωτήσεις με ετικέτα r dplyr γυαλιστερή ή κάντε τη δική σας ερώτηση.